Merge SCHEMA_WORK into HEAD. Lots of changes, some things are probably broken:
[lhc/web/wiklou.git] / config / index.php
1 <?php
2 # MediaWiki web-based config/installation
3 # Copyright (C) 2004 Brion Vibber <brion@pobox.com>
4 # http://www.mediawiki.org/
5 #
6 # This program is free software; you can redistribute it and/or modify
7 # it under the terms of the GNU General Public License as published by
8 # the Free Software Foundation; either version 2 of the License, or
9 # (at your option) any later version.
10 #
11 # This program is distributed in the hope that it will be useful,
12 # but WITHOUT ANY WARRANTY; without even the implied warranty of
13 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 # GNU General Public License for more details.
15 #
16 # You should have received a copy of the GNU General Public License along
17 # with this program; if not, write to the Free Software Foundation, Inc.,
18 # 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
19 # http://www.gnu.org/copyleft/gpl.html
20
21 error_reporting( E_ALL );
22 header( "Content-type: text/html; charset=utf-8" );
23 @ini_set( "display_errors", true );
24
25 ?><!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
26 "http://www.w3.org/TR/html4/loose.dtd">
27 <html>
28 <head>
29 <meta http-equiv="Content-type" content="text/html; charset=utf-8">
30 <meta name="robots" content="noindex,nofollow">
31 <title>MediaWiki installation</title>
32 <style type="text/css">
33 #credit {
34 float: right;
35 width: 200px;
36 font-size: 0.7em;
37 background-color: #eee;
38 color: black;
39 border: solid 1px #444;
40 padding: 8px;
41 margin-left: 8px;
42 }
43
44 dl.setup dd {
45 margin-left: 0;
46 }
47 dl.setup dd label.column {
48 clear: left;
49 font-weight: bold;
50 width: 12em;
51 float: left;
52 text-align: right;
53 padding-right: 1em;
54 }
55 dl.setup dt {
56 clear: left;
57 font-size: 0.8em;
58 margin-left: 10em;
59 /* margin-right: 200px; */
60 margin-bottom: 2em;
61 }
62 .error {
63 color: red;
64 }
65 ul.plain {
66 list-style: none;
67 clear: both;
68 margin-left: 12em;
69 }
70 </style>
71 </head>
72
73 <body>
74
75 <div id="credit">
76 <center>
77 <a href="http://www.mediawiki.org/"><img
78 src="../skins/common/images/wiki.png" width="135" height="135" alt="" border="0" /></a>
79 </center>
80
81 <b><a href="http://www.mediawiki.org/">MediaWiki</a></b> is
82 Copyright (C) 2001-2004 by Magnus Manske, Brion Vibber, Lee Daniel Crocker,
83 Tim Starling, Erik M&ouml;ller, Gabriel Wicke, Thomas Gries and others.</p>
84
85 <ul>
86 <li><a href="../README">Readme</a></li>
87 <li><a href="../RELEASE-NOTES">Release notes</a></li>
88 <li><a href="../docs/">doc/</a></li>
89 <li><a href="http://meta.wikipedia.org/wiki/MediaWiki_User's_Guide">User's Guide</a></li>
90 </ul>
91
92 <p>This program is free software; you can redistribute it and/or modify
93 it under the terms of the GNU General Public License as published by
94 the Free Software Foundation; either version 2 of the License, or
95 (at your option) any later version.</p>
96
97 <p>This program is distributed in the hope that it will be useful,
98 but WITHOUT ANY WARRANTY; without even the implied warranty of
99 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
100 GNU General Public License for more details.</p>
101
102 <p>You should have received <a href="../COPYING">a copy of the GNU General Public License</a>
103 along with this program; if not, write to the Free Software
104 Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
105 or <a href="http://www.gnu.org/copyleft/gpl.html">read it online</a></p>
106 </div>
107
108 <?php
109
110 $IP = ".."; # Just to suppress notices, not for anything useful
111 define( "MEDIAWIKI", true );
112 define( "MEDIAWIKI_INSTALL", true );
113 require_once( "../includes/Defines.php" );
114 require_once( "../includes/DefaultSettings.php" );
115 require_once( "../includes/MagicWord.php" );
116 require_once( "../includes/Namespace.php" );
117 ?>
118
119 <h1>MediaWiki <?php print $wgVersion ?> installation</h1>
120
121
122 <?php
123
124 /* Check for existing configurations and bug out! */
125
126 if( file_exists( "../LocalSettings.php" ) || file_exists( "../AdminSettings.php" ) ) {
127 dieout( "<h2>Wiki is configured.</h2>
128
129 <p>Already configured... <a href='../index.php'>return to the wiki</a>.</p>
130
131 <p>(You should probably remove this directory for added security.)</p>" );
132 }
133
134 if( file_exists( "./LocalSettings.php" ) || file_exists( "./AdminSettings.php" ) ) {
135 dieout( "<h2>You're configured!</h2>
136
137 <p>Please move <tt>LocalSettings.php</tt> to the parent directory, then
138 <a href='../index.php'>try out your wiki</a>.
139 (You should remove this config directory for added security once you're done.)</p>" );
140 }
141
142 if( !is_writable( "." ) ) {
143 dieout( "<h2>Can't write config file, aborting</h2>
144
145 <p>In order to configure the wiki you have to make the <tt>config</tt> subdirectory
146 writable by the web server. Once configuration is done you'll move the created
147 <tt>LocalSettings.php</tt> to the parent directory, and for added safety you can
148 then remove the <tt>config</tt> subdirectory entirely.</p>
149
150 <p>To make the directory writable on a Unix/Linux system:</p>
151
152 <pre>
153 cd <i>/path/to/wiki</i>
154 chmod a+w config
155 </pre>" );
156 }
157
158
159 require_once( "../install-utils.inc" );
160 require_once( "../maintenance/updaters.inc" );
161 require_once( "../maintenance/convertLinks.inc" );
162 require_once( "../maintenance/archives/moveCustomMessages.inc" );
163
164 class ConfigData {
165 function getEncoded( $data ) {
166 # Hackish
167 global $wgUseLatin1;
168 if( $wgUseLatin1 ) {
169 return utf8_decode( $data ); /* to latin1 wikis */
170 } else {
171 return $data;
172 }
173 }
174 function getSitename() { return $this->getEncoded( $this->Sitename ); }
175 function getSysopName() { return $this->getEncoded( $this->SysopName ); }
176 function getSysopPass() { return $this->getEncoded( $this->SysopPass ); }
177 }
178
179 ?>
180
181 <p><i>Please include all of the lines below when reporting installation problems.</i></p>
182
183 <h2>Checking environment...</h2>
184 <ul>
185 <?php
186 $endl = "
187 ";
188 $wgConfiguring = true;
189 $conf = new ConfigData;
190
191 install_version_checks();
192
193 print "<li>PHP " . phpversion() . ": ok</li>\n";
194
195 if( ini_get( "register_globals" ) ) {
196 ?>
197 <li><b class='error'>Warning:</b> <b>PHP's
198 <tt><a href="http://php.net/register_globals">register_globals</a></tt>
199 option is enabled.</b> MediaWiki will work correctly, but this setting
200 increases your exposure to potential security vulnerabilities in PHP-based
201 software running on your server. <b>You should disable it if you are able.</b></li>
202 <?php
203 }
204
205 if( ini_get( "safe_mode" ) ) {
206 ?>
207 <li class='error'><b>Warning: PHP's
208 <a href='http://www.php.net/features.safe-mode'>safe mode</a> is active!</b>
209 You will likely have problems caused by this. You may need to make the
210 'images' subdirectory writable or specify a TMP environment variable pointing to
211 a writable temporary directory owned by you, since safe mode breaks the system
212 temporary directory.</li>
213 <?php
214 }
215
216 $sapi = php_sapi_name();
217 $conf->prettyURLs = true;
218 print "<li>PHP server API is $sapi; ";
219 switch( $sapi ) {
220 case "apache":
221 case "apache2handler":
222 print "ok, using pretty URLs (<tt>index.php/Page_Title</tt>)";
223 break;
224 case "cgi":
225 case "cgi-fcgi":
226 case "apache2filter":
227 print "using ugly URLs (<tt>index.php?title=Page_Title</tt>)";
228 $conf->prettyURLs = false;
229 break;
230 default:
231 print "unknown; using pretty URLs (<tt>index.php/Page_Title</tt>), if you have trouble change this in <tt>LocalSettings.php</tt>";
232 }
233 print "</li>\n";
234
235 $conf->xml = function_exists( "utf8_encode" );
236 if( $conf->xml ) {
237 print "<li>Have XML / Latin1-UTF-8 conversion support.</li>\n";
238 } else {
239 dieout( "PHP's XML module is missing; the wiki requires functions in
240 this module and won't work in this configuration.
241 If you're running Mandrake, install the php-xml package." );
242 }
243
244 $memlimit = ini_get( "memory_limit" );
245 $conf->raiseMemory = false;
246 if( empty( $memlimit ) ) {
247 print "<li>PHP is configured with no <tt>memory_limit</tt>.</li>\n";
248 } else {
249 print "<li>PHP's <tt>memory_limit</tt> is " . htmlspecialchars( $memlimit ) . ". <b>If this is too low, installation may fail!</b> ";
250 $n = IntVal( $memlimit );
251 if( preg_match( '/^([0-9]+)[Mm]$/', trim( $memlimit ), $m ) ) {
252 $n = IntVal( $m[1] * (1024*1024) );
253 }
254 if( $n < 20*1024*1024 ) {
255 print "Attempting to raise limit to 20M... ";
256 if( false === ini_set( "memory_limit", "20M" ) ) {
257 print "failed.";
258 } else {
259 $conf->raiseMemory = true;
260 print "ok.";
261 }
262 }
263 print "</li>\n";
264 }
265
266 $conf->zlib = function_exists( "gzencode" );
267 if( $conf->zlib ) {
268 print "<li>Have zlib support; enabling output compression.</li>\n";
269 } else {
270 print "<li>No zlib support.</li>\n";
271 }
272
273 $conf->turck = function_exists( 'mmcache_get' );
274 if ( $conf->turck ) {
275 print "<li><a href=\"http://turck-mmcache.sourceforge.net/\">Turck MMCache</a> installed</li>\n";
276 } else {
277 print "<li><a href=\"http://turck-mmcache.sourceforge.net/\">Turck MMCache</a> not installed, " .
278 "can't use object caching functions</li>\n";
279 }
280
281 $conf->ImageMagick = false;
282 $imcheck = array( "/usr/bin", "/usr/local/bin", "/sw/bin", "/opt/local/bin" );
283 foreach( $imcheck as $dir ) {
284 $im = "$dir/convert";
285 if( file_exists( $im ) ) {
286 print "<li>Found ImageMagick: <tt>$im</tt>; image thumbnailing will be enabled if you enable uploads.</li>\n";
287 $conf->ImageMagick = $im;
288 break;
289 }
290 }
291
292 $conf->HaveGD = function_exists( "imagejpeg" );
293 if( $conf->HaveGD ) {
294 print "<li>Found GD graphics library built-in";
295 if( !$conf->ImageMagick ) {
296 print ", image thumbnailing will be enabled if you enable uploads";
297 }
298 print ".</li>\n";
299 } else {
300 if( !$conf->ImageMagick ) {
301 print "<li>Couldn't find GD library or ImageMagick; image thumbnailing disabled.</li>\n";
302 }
303 }
304
305 $conf->UseImageResize = $conf->HaveGD || $conf->ImageMagick;
306
307 # $conf->IP = "/Users/brion/Sites/inplace";
308 $conf->IP = dirname( dirname( __FILE__ ) );
309 print "<li>Installation directory: <tt>" . htmlspecialchars( $conf->IP ) . "</tt></li>\n";
310
311 # $conf->ScriptPath = "/~brion/inplace";
312 $conf->ScriptPath = preg_replace( '{^(.*)/config.*$}', '$1', $_SERVER["REQUEST_URI"] );
313 print "<li>Script URI path: <tt>" . htmlspecialchars( $conf->ScriptPath ) . "</tt></li>\n";
314
315 $conf->posted = ($_SERVER["REQUEST_METHOD"] == "POST");
316
317 $conf->Sitename = ucfirst( importPost( "Sitename", "" ) );
318 $conf->EmergencyContact = importPost( "EmergencyContact", $_SERVER["SERVER_ADMIN"] );
319 $conf->DBserver = importPost( "DBserver", "localhost" );
320 $conf->DBname = importPost( "DBname", "wikidb" );
321 $conf->DBuser = importPost( "DBuser", "wikiuser" );
322 $conf->DBpassword = importPost( "DBpassword" );
323 $conf->DBpassword2 = importPost( "DBpassword2" );
324 $conf->DBprefix = importPost( "DBprefix" );
325 $conf->RootPW = importPost( "RootPW" );
326 $conf->LanguageCode = importPost( "LanguageCode", "en" );
327 $conf->SysopName = importPost( "SysopName", "WikiSysop" );
328 $conf->SysopPass = importPost( "SysopPass" );
329 $conf->SysopPass2 = importPost( "SysopPass2" );
330
331 /* Check for validity */
332 $errs = array();
333
334 if( $conf->Sitename == "" || $conf->Sitename == "MediaWiki" || $conf->Sitename == "Mediawiki" ) {
335 $errs["Sitename"] = "Must not be blank or \"MediaWiki\".";
336 }
337 if( $conf->DBuser == "" ) {
338 $errs["DBuser"] = "Must not be blank";
339 }
340 if( $conf->DBpassword == "" ) {
341 $errs["DBpassword"] = "Must not be blank";
342 }
343 if( $conf->DBpassword != $conf->DBpassword2 ) {
344 $errs["DBpassword2"] = "Passwords don't match!";
345 }
346 if( !preg_match( '/^[A-Za-z_0-9]*$/', $conf->DBprefix ) ) {
347 $errs["DBprefix"] = "Invalid table prefix";
348 }
349
350 if( $conf->SysopPass == "" ) {
351 $errs["SysopPass"] = "Must not be blank";
352 }
353 if( $conf->SysopPass != $conf->SysopPass2 ) {
354 $errs["SysopPass2"] = "Passwords don't match!";
355 }
356
357 $conf->License = importRequest( "License", "none" );
358 if( $conf->License == "gfdl" ) {
359 $conf->RightsUrl = "http://www.gnu.org/copyleft/fdl.html";
360 $conf->RightsText = "GNU Free Documentation License 1.2";
361 $conf->RightsCode = "gfdl";
362 $conf->RightsIcon = '${wgStylePath}/common/images/gnu-fdl.png';
363 } elseif( $conf->License == "none" ) {
364 $conf->RightsUrl = $conf->RightsText = $conf->RightsCode = $conf->RightsIcon = "";
365 } else {
366 $conf->RightsUrl = importRequest( "RightsUrl", "" );
367 $conf->RightsText = importRequest( "RightsText", "" );
368 $conf->RightsCode = importRequest( "RightsCode", "" );
369 $conf->RightsIcon = importRequest( "RightsIcon", "" );
370 }
371
372 $conf->Shm = importRequest( "Shm", "none" );
373 $conf->MCServers = importRequest( "MCServers" );
374
375 /* Test memcached servers */
376
377 if ( $conf->Shm == 'memcached' && $conf->MCServers ) {
378 $conf->MCServerArray = array_map( 'trim', explode( ',', $conf->MCServers ) );
379 foreach ( $conf->MCServerArray as $server ) {
380 $error = testMemcachedServer( $server );
381 if ( $error ) {
382 $errs["MCServers"] = $error;
383 break;
384 }
385 }
386 } else if ( $conf->Shm == 'memcached' ) {
387 $errs["MCServers"] = "Please specify at least one server if you wish to use memcached";
388 }
389
390 /* default values for installation */
391 $conf->Email =importRequest("Email", "email_enabled");
392 $conf->Emailuser=importRequest("Emailuser", "emailuser_enabled");
393 $conf->Enotif =importRequest("Enotif", "enotif_allpages");
394 $conf->Eauthent =importRequest("Eauthent", "eauthent_enabled");
395
396 if( $conf->posted && ( 0 == count( $errs ) ) ) {
397 do { /* So we can 'continue' to end prematurely */
398 $conf->Root = ($conf->RootPW != "");
399
400 /* Load up the settings and get installin' */
401 $local = writeLocalSettings( $conf );
402 $wgCommandLineMode = false;
403 chdir( ".." );
404 eval($local);
405 $wgDBadminuser = "root";
406 $wgDBadminpassword = $conf->RootPW;
407 $wgDBprefix = $conf->DBprefix;
408 $wgCommandLineMode = true;
409 $wgUseDatabaseMessages = false; /* FIXME: For database failure */
410 require_once( "includes/Setup.php" );
411 chdir( "config" );
412
413 require_once( "../maintenance/InitialiseMessages.inc" );
414
415 $wgTitle = Title::newFromText( "Installation script" );
416 $wgDatabase = Database::newFromParams( $wgDBserver, "root", $conf->RootPW, "", 1 );
417 $wgDatabase->mIgnoreErrors = true;
418
419 @$myver = mysql_get_server_info( $wgDatabase->mConn );
420 if( $myver ) {
421 $conf->Root = true;
422 print "<li>Connected as root (automatic)</li>\n";
423 } else {
424 print "<li>MySQL error " . ($err = mysql_errno() ) .
425 ": " . htmlspecialchars( mysql_error() );
426 $ok = false;
427 switch( $err ) {
428 case 1045:
429 case 2000:
430 if( $conf->Root ) {
431 $errs["RootPW"] = "Check password";
432 } else {
433 print "<li>Trying regular user...\n";
434 /* Try the regular user... */
435 $wgDBadminuser = $wgDBuser;
436 $wgDBadminpassword = $wgDBpassword;
437 $wgDatabase = Database::newFromParams( $wgDBserver, $wgDBuser, $wgDBpassword, "", 1 );
438 $wgDatabase->isOpen();
439 $wgDatabase->mIgnoreErrors = true;
440 @$myver = mysql_get_server_info( $wgDatabase->mConn );
441 if( !$myver ) {
442 $errs["DBuser"] = "Check name/pass";
443 $errs["DBpassword"] = "or enter root";
444 $errs["DBpassword2"] = "password below";
445 $errs["RootPW"] = "Got root?";
446 print " need password.</li>\n";
447 } else {
448 $conf->Root = false;
449 $conf->RootPW = "";
450 print " ok.</li>\n";
451 # And keep going...
452 $ok = true;
453 }
454 break;
455 }
456 case 2002:
457 case 2003:
458 $errs["DBserver"] = "Connection failed";
459 break;
460 default:
461 $errs["DBserver"] = "Couldn't connect to database";
462 break;
463 }
464 if( !$ok ) continue;
465 }
466
467 if ( !$wgDatabase->isOpen() ) {
468 $errs["DBserver"] = "Couldn't connect to database";
469 continue;
470 }
471
472 print "<li>Connected to database... $myver";
473 if( version_compare( $myver, "4.0.0" ) >= 0 ) {
474 print "; enabling MySQL 4 enhancements";
475 $conf->DBmysql4 = true;
476 $local = writeLocalSettings( $conf );
477 }
478 print "</li>\n";
479
480 @$sel = mysql_select_db( $wgDBname, $wgDatabase->mConn );
481 if( $sel ) {
482 print "<li>Database <tt>" . htmlspecialchars( $wgDBname ) . "</tt> exists</li>\n";
483 } else {
484 $res = $wgDatabase->query( "CREATE DATABASE `$wgDBname`" );
485 if( !$res ) {
486 print "<li>Couldn't create database <tt>" .
487 htmlspecialchars( $wgDBname ) .
488 "</tt>; try with root access or check your username/pass.</li>\n";
489 $errs["RootPW"] = "&lt;- Enter";
490 continue;
491 }
492 print "<li>Created database <tt>" . htmlspecialchars( $wgDBname ) . "</tt></li>\n";
493 }
494
495 $wgDatabase->selectDB( $wgDBname );
496
497 if( $wgDatabase->tableExists( "cur" ) || $wgDatabase->tableExists( "revision" ) ) {
498 print "<li>There are already MediaWiki tables in this database. Checking if updates are needed...</li>\n";
499
500 # Create user if required
501 if ( $conf->Root ) {
502 $conn = Database::newFromParams( $wgDBserver, $wgDBuser, $wgDBpassword, $wgDBname, 1 );
503 if ( $conn->isOpen() ) {
504 print "<li>DB user account ok</li>\n";
505 $conn->close();
506 } else {
507 print "<li>Granting user permissions...</li>\n";
508 dbsource( "../maintenance/users.sql", $wgDatabase );
509 }
510 }
511 print "<pre>\n";
512 chdir( ".." );
513 flush();
514 do_all_updates();
515 chdir( "config" );
516
517 print "</pre>\n";
518 print "<li>Finished update checks.</li>\n";
519 } else {
520 # FIXME: Check for errors
521 print "<li>Creating tables...";
522 dbsource( "../maintenance/tables.sql", $wgDatabase );
523 dbsource( "../maintenance/interwiki.sql", $wgDatabase );
524 dbsource( "../maintenance/archives/patch-userlevels-defaultgroups.sql", $wgDatabase );
525 print " done.</li>\n";
526
527 print "<li>Initializing data...";
528 $wgDatabase->insert( 'site_stats',
529 array( 'ss_row_id' => 1,
530 'ss_total_views' => 0,
531 'ss_total_edits' => 0,
532 'ss_good_articles' => 0 ) );
533 # setting up the db user
534 if( $conf->Root ) {
535 print "<li>Granting user permissions...</li>\n";
536 dbsource( "../maintenance/users.sql", $wgDatabase );
537 }
538
539 if( $conf->SysopName ) {
540 $u = User::newFromName( $conf->getSysopName() );
541 if ( 0 == $u->idForName() ) {
542 $u->addToDatabase();
543 $u->setPassword( $conf->getSysopPass() );
544 $u->addRight( "sysop" );
545 $u->addRight( "bureaucrat" );
546 $u->saveSettings();
547 print "<li>Created sysop account <tt>" .
548 htmlspecialchars( $conf->SysopName ) . "</tt>.</li>\n";
549 } else {
550 print "<li>Could not create user - already exists!</li>\n";
551 }
552 } else {
553 print "<li>Skipped sysop account creation, no name given.</li>\n";
554 }
555
556 $titleobj = Title::newFromText( wfMsgNoDB( "mainpage" ) );
557 $now = wfTimestampNow();
558 $won = wfInvertTimestamp( $now );
559
560 extract( $wgDatabase->tableNames( 'text', 'page', 'revision' ) );
561 $titleobj = Title::newFromText( wfMsgNoDB( "mainpage" ) );
562 $title = $titleobj->getDBkey();
563 $sql = "INSERT INTO $text (old_text, old_flags) VALUES ('" .
564 wfStrencode( wfMsg( "mainpagetext" ) . "\n\n" . wfMsg( "mainpagedocfooter" ) ) .
565 "', '')";
566 $wgDatabase->query( $sql, $fname );
567 $text_id = $wgDatabase->insertID();
568
569 $sql = "INSERT INTO $page (page_namespace, page_title, page_restrictions, page_counter, page_is_redirect,
570 page_is_new, page_random, page_touched, page_latest) VALUES (
571 0, '{$title}', '', 0, 0, 1, 0.5, '{$now}', {$text_id} )";
572 $wgDatabase->query( $sql, $fname );
573 $page_id = $wgDatabase->insertID();
574
575 $sql = "INSERT INTO $revision (rev_id, rev_page, rev_comment, rev_user, rev_user_text,
576 rev_timestamp, inverse_timestamp, rev_minor_edit)
577 VALUES ({$text_id}, {$page_id}, '', 0, 'MediaWiki default', '{$now}', '{$won}', 0)";
578 $wgDatabase->query( $sql, $fname );
579
580 print "<li><pre>";
581 initialiseMessages();
582 print "</pre></li>\n";
583 }
584
585 /* Write out the config file now that all is well */
586 print "<p>Creating LocalSettings.php...</p>\n\n";
587 $localSettings = "<" . "?php$endl$local$endl?" . ">";
588
589 if( version_compare( phpversion(), "4.3.2" ) >= 0 ) {
590 $xt = "xt"; # Refuse to overwrite an existing file
591 } else {
592 $xt = "wt"; # 'x' is not available prior to PHP 4.3.2. We did check above, but race conditions blah blah
593 }
594 $f = fopen( "LocalSettings.php", $xt );
595
596 if( $f == false ) {
597 dieout( "<p>Couldn't write out LocalSettings.php. Check that the directory permissions are correct and that there isn't already a file of that name here...</p>\n" .
598 "<p>Here's the file that would have been written, try to paste it into place manually:</p>\n" .
599 "<pre>\n" . htmlspecialchars( $localSettings ) . "</pre>\n" );
600 }
601 if(fwrite( $f, $localSettings ) ) {
602 fclose( $f );
603
604 print "<p>Success! Move the config/LocalSettings.php file into the parent directory, then follow
605 <a href='{$conf->ScriptPath}/index.php'>this link</a> to your wiki.</p>\n";
606 } else {
607 fclose( $f );
608 die("<p class='error'>An error occured while writing the config/LocalSettings.php file. Check user rights and disk space then try again.</p>\n");
609
610 }
611
612 } while( false );
613 }
614 ?>
615 </ul>
616
617
618 <?php
619
620 if( count( $errs ) ) {
621 /* Display options form */
622
623 if( $conf->posted ) {
624 echo "<p class='error'>Something's not quite right yet; make sure everything below is filled out correctly.</p>\n";
625 }
626 ?>
627
628 <form name="config" method="post">
629
630
631 <h2>Site config</h2>
632
633 <dl class="setup">
634 <dd>
635 <?php
636 aField( $conf, "Sitename", "Site name:" );
637 ?>
638 </dd>
639 <dt>
640 Your site name should be a relatively short word. It'll appear as the namespace
641 name for 'meta' pages as well as throughout the user interface. Good site names
642 are things like "<a href="http://www.wikipedia.org/">Wikipedia</a>" and
643 "<a href="http://openfacts.berlios.de/">OpenFacts</a>"; avoid punctuation,
644 which may cause problems.
645 </dt>
646
647 <dd>
648 <?php
649 aField( $conf, "EmergencyContact", "Contact e-mail" );
650 ?>
651 </dd>
652 <dt>
653 This will be used as the return address for password reminders and
654 may be displayed in some error conditions so visitors can get in
655 touch with you. It is also be used as the default sender address of e-mail
656 notifications (enotifs).
657 </dt>
658
659 <dd>
660 <label class='column' for="LanguageCode">Language</label>
661 <select id="LanguageCode" name="LanguageCode">
662 <?php
663 $list = getLanguageList();
664 foreach( $list as $code => $name ) {
665 $sel = ($code == $conf->LanguageCode) ? 'selected="selected"' : '';
666 echo "\t\t<option value=\"$code\" $sel>$name</option>\n";
667 }
668 ?>
669 </select>
670 </dd>
671 <dt>
672 You may select the language for the user interface of the wiki...
673 Some localizations are less complete than others. This also controls
674 the character encoding; Unicode is more flexible, but Latin-1 may be
675 more compatible with older browsers for some languages. Unicode will
676 be used where not specified otherwise.
677 </dt>
678
679 <dd>
680 <label class='column'>Copyright/license metadata</label>
681 <div>Select one:</div>
682
683 <ul class="plain">
684 <li><?php aField( $conf, "License", "no license metadata", "radio", "none" ); ?></li>
685 <li><?php aField( $conf, "License", "GNU Free Documentation License 1.2 (Wikipedia-compatible)", "radio", "gfdl" ); ?></li>
686 <li><?php
687 aField( $conf, "License", "a Creative Commons license...", "radio", "cc" );
688 $partner = "MediaWiki";
689 $exit = urlencode( "$wgServer{$conf->ScriptPath}/config/index.php?License=cc&RightsUrl=[license_url]&RightsText=[license_name]&RightsCode=[license_code]&RightsIcon=[license_button]" );
690 $icon = urlencode( "$wgServer$wgUploadPath/wiki.png" );
691 $ccApp = htmlspecialchars( "http://creativecommons.org/license/?partner=$partner&exit_url=$exit&partner_icon_url=$icon" );
692 print "<a href=\"$ccApp\">choose</a>";
693 ?> (link will wipe out any other data in this form!)
694 <?php if( $conf->License == "cc" ) { ?>
695 <ul>
696 <li><?php aField( $conf, "RightsIcon", "<img src=\"" . htmlspecialchars( $conf->RightsIcon ) . "\" alt='icon' />", "hidden" ); ?></li>
697 <li><?php aField( $conf, "RightsText", htmlspecialchars( $conf->RightsText ), "hidden" ); ?></li>
698 <li><?php aField( $conf, "RightsCode", "code: " . htmlspecialchars( $conf->RightsCode ), "hidden" ); ?></li>
699 <li><?php aField( $conf, "RightsUrl", "<a href=\"" . htmlspecialchars( $conf->RightsUrl ) . "\">" . htmlspecialchars( $conf->RightsUrl ) . "</a>", "hidden" ); ?></li>
700 </ul>
701 <?php } ?>
702 </li>
703 </ul>
704 </dd>
705 <dt>
706 MediaWiki can include a basic license notice, icon, and machine-readable
707 copyright metadata if your wiki's content is to be licensed under
708 the GNU FDL or a Creative Commons license. If you're not sure, leave
709 it at "none".
710 </dt>
711
712
713 <dd>
714 <?php aField( $conf, "SysopName", "Sysop account name:", "" ) ?>
715 </dd>
716 <dd>
717 <?php aField( $conf, "SysopPass", "password:", "password" ) ?>
718 </dd>
719 <dd>
720 <?php aField( $conf, "SysopPass2", "again:", "password" ) ?>
721 </dd>
722 <dt>
723 A sysop user account can lock or delete pages, block problematic IP
724 addresses from editing, and other maintenance tasks. If creating a new
725 wiki database, a sysop account will be created with the given name
726 and password.
727 </dt>
728
729 <dd>
730 <label class='column'>Shared memory caching</label>
731 <div>Select one:</div>
732
733 <ul class="plain">
734 <li><?php aField( $conf, "Shm", "no caching", "radio", "none" ); ?></li>
735 <?php
736 if ( $conf->turck ) {
737 echo "<li>";
738 aField( $conf, "Shm", "Turck MMCache", "radio", "turck" );
739 echo "</li>";
740 }
741 ?>
742 <li><?php aField( $conf, "Shm", "Memcached", "radio", "memcached" ); ?></li>
743 <li><?php aField( $conf, "MCServers", "Memcached servers", "" ) ?></li>
744 </ul>
745 </dd>
746 <dt>
747 Using a shared memory system such as Turck MMCache or Memcached will speed
748 up MediaWiki significantly. Memcached is the best solution but needs to be
749 installed. Specify the server addresses and ports in a comma-separted list. Only
750 use Turck shared memory if the wiki will be running on a single Apache server.
751 </dl>
752
753 <h2>E-mail, e-mail notification and authentification setup</h2>
754
755 <dl class="setup">
756 <dd>
757 <label class='column'>E-mail (general)</label>
758 <div>Select one:</div>
759
760 <ul class="plain">
761 <li><?php aField( $conf, "Email", "enabled", "radio", "email_enabled" ); ?></li>
762 <li><?php aField( $conf, "Email", "disabled", "radio", "email_disabled" ); ?></li>
763 </ul>
764 </dd>
765 <dt>
766 Use this to disable all e-mail functions (send a password reminder, user-to-user e-mail and e-mail notification),
767 if sending e-mails on your server doesn't work.
768 </dt>
769 <dd>
770 <label class='column'>User-to-user e-mail</label>
771 <div>Select one:</div>
772
773 <ul class="plain">
774 <li><?php aField( $conf, "Emailuser", "enabled", "radio", "emailuser_enabled" ); ?></li>
775 <li><?php aField( $conf, "Emailuser", "disabled", "radio", "emailuser_disabled" ); ?></li>
776 </ul>
777 </dd>
778 <dt>
779 Use this to disable only the user-to-user e-mail function (EmailUser).
780 </dt>
781 <dd>
782 <label class='column'>E-mail notification</label>
783 <div>Select one:</div>
784
785 <ul class="plain">
786 <li><?php aField( $conf, "Enotif", "disabled", "radio", "enotif_disabled" ); ?></li>
787 <li><?php aField( $conf, "Enotif", "enabled for changes of watch-listed and user_talk pages (recommended for small wikis; perhaps not suited for large wikis)", "radio", "enotif_allpages" ); ?></li>
788 <li><?php aField( $conf, "Enotif", "enabled for changes of user_talk pages only (suited for small and large wikis)", "radio", "enotif_usertalk" ); ?></li>
789 </ul>
790 </dd>
791 <dt>
792 <p><?php
793 $ccEnotif = htmlspecialchars( 'http://meta.wikipedia.org/Enotif' );
794 print "<a href=\"$ccEnotif\">E-mail notification</a>";
795 ?>
796 sends a notification e-mail to a user, when the user_talk page is changed
797 and/or when watch-listed pages are changed, depending on the above settings.
798 When testing this feature, be reminded, that obviously an e-mail address must be present in your preferences
799 and that your own changes never trigger notifications to be sent to yourself.</p>
800
801 <p>Users get corresponding options to select or deselect in their users' preferences.
802 The user options are not shown on the preference page, if e-mail notification is disabled.</p>
803
804 <p>There are additional options for fine tuning in /includes/DefaultSettings.php .</p>
805 </dt>
806
807 <dd>
808 <label class='column'>E-mail address authentication</label>
809 <div>Select one:</div>
810
811 <ul class="plain">
812 <li><?php aField( $conf, "Eauthent", "disabled", "radio", "eauthent_disabled" ); ?></li>
813 <li><?php aField( $conf, "Eauthent", "enabled", "radio", "eauthent_enabled" ); ?></li>
814 </ul>
815 </dd>
816 <dt>
817 <p><?php
818 $ccEauthent = htmlspecialchars( 'http://meta.wikipedia.org/Eauthent' );
819 print "<a href=\"$ccEnotif\">E-mail address authentication</a>";
820 ?>
821 uses a scheme to authenticate e-mail addresses of the users. The user who initially enters or who changes his/her stored e-mail address
822 gets a one-time temporary password mailed to that address. The user can use the original password as long as wanted, however, the stored e-mail address
823 is only authenticated at the moment when the user logs in with the one-time temporary password.<p>
824
825 <p>The e-mail address stays authenticated as long as the user does not change it; the time of authentication is indicated
826 on the user preference page.</p>
827
828 <p>If the option is enabled, only authenticated e-mail addresses can receive EmailUser mails and/or
829 e-mail notification mails.</p>
830 </dt>
831
832 </dl>
833
834 <h2>Database config</h2>
835
836 <dl class="setup">
837 <dd><?php
838 aField( $conf, "DBserver", "MySQL server" );
839 ?></dd>
840 <dt>
841 If your database server isn't on your web server, enter the name
842 or IP address here.
843 </dt>
844
845 <dd><?php
846 aField( $conf, "DBname", "Database name" );
847 ?></dd>
848 <dd><?php
849 aField( $conf, "DBuser", "DB username" );
850 ?></dd>
851 <dd><?php
852 aField( $conf, "DBpassword", "DB password", "password" );
853 ?></dd>
854 <dd><?php
855 aField( $conf, "DBpassword2", "again", "password" );
856 ?></dd>
857 <dt>
858 If you only have a single user account and database available,
859 enter those here. If you have database root access (see below)
860 you can specify new accounts/databases to be created.
861 </dt>
862
863 <dd><?php
864 aField( $conf, "DBprefix", "Database table prefix" );
865 ?></dd>
866 <dt>
867 <p>If you need to share one database between multiple wikis, or
868 MediaWiki and another web application, you may choose to
869 add a prefix to all the table names to avoid conflicts.</p>
870
871 <p>Avoid exotic characters; something like <tt>mw_</tt> is good.</p>
872 </dt>
873
874 <dd>
875 <?php
876 aField( $conf, "RootPW", "DB root password", "password" );
877 ?>
878 </dd>
879 <dt>
880 You will only need this if the database and/or user account
881 above don't already exist.
882 Do <em>not</em> type in your machine's root password! MySQL
883 has its own "root" user with a separate password. (It might
884 even be blank, depending on your configuration.)
885 </dt>
886
887 <dd>
888 <label class='column'>&nbsp;</label>
889 <input type="submit" value="Install!" />
890 </dd>
891 </dl>
892
893
894 </form>
895
896 <?php
897 }
898
899 /* -------------------------------------------------------------------------------------- */
900
901 function writeAdminSettings( $conf ) {
902 return "
903 \$wgDBadminuser = \"{$conf->DBadminuser}\";
904 \$wgDBadminpassword = \"{$conf->DBadminpassword}\";
905 ";
906 }
907
908 function escapePhpString( $string ) {
909 return strtr( $string,
910 array(
911 "\n" => "\\n",
912 "\r" => "\\r",
913 "\t" => "\\t",
914 "\\" => "\\\\",
915 "\$" => "\\\$",
916 "\"" => "\\\""
917 ));
918 }
919
920 function writeLocalSettings( $conf ) {
921 $conf->DBmysql4 = @$conf->DBmysql4 ? 'true' : 'false';
922 $conf->UseImageResize = $conf->UseImageResize ? 'true' : 'false';
923 $conf->PasswordSender = $conf->EmergencyContact;
924 if( preg_match( '/^([a-z]+)-latin1$/', $conf->LanguageCode, $m ) ) {
925 $conf->LanguageCode = $m[1];
926 $conf->Latin1 = true;
927 } else {
928 $conf->Latin1 = false;
929 }
930 $zlib = ($conf->zlib ? "" : "# ");
931 $magic = ($conf->ImageMagick ? "" : "# ");
932 $convert = ($conf->ImageMagick ? $conf->ImageMagick : "/usr/bin/convert" );
933 $pretty = ($conf->prettyURLs ? "" : "# ");
934 $ugly = ($conf->prettyURLs ? "# " : "");
935 $rights = ($conf->RightsUrl) ? "" : "# ";
936
937 switch ( $conf->Shm ) {
938 case 'memcached':
939 $memcached = 'true';
940 $turck = '#';
941 $mcservers = var_export( $conf->MCServerArray, true );
942 break;
943 case 'turck':
944 $memcached = 'false';
945 $mcservers = 'array()';
946 $turck = '';
947 break;
948 default:
949 $memcached = 'false';
950 $mcservers = 'array()';
951 $turck = '#';
952 }
953
954 if ( $conf->Email == 'email_enabled' ) {
955 $enableemail = 'true';
956 $enableuseremail = ( $conf->Emailuser == 'emailuser_enabled' ) ? 'true' : 'false' ;
957 $eauthent = ( $conf->Eauthent == 'eauthent_enabled' ) ? 'true' : 'false' ;
958 switch ( $conf->Enotif ) {
959 case 'enotif_usertalk':
960 $enotifusertalk = 'true';
961 $enotifwatchlist = 'false';
962 break;
963 case 'enotif_allpages':
964 $enotifusertalk = 'true';
965 $enotifwatchlist = 'true';
966 break;
967 default:
968 $enotifusertalk = 'false';
969 $enotifwatchlist = 'false';
970 }
971 } else {
972 $enableuseremail = 'false';
973 $enableemail = 'false';
974 $eauthent = 'false';
975 $enotifusertalk = 'false';
976 $enotifwatchlist = 'false';
977 }
978
979 $file = @fopen( "/dev/urandom", "r" );
980 if ( $file ) {
981 $proxyKey = bin2hex( fread( $file, 32 ) );
982 fclose( $file );
983 } else {
984 $proxyKey = "";
985 for ( $i=0; $i<8; $i++ ) {
986 $proxyKey .= dechex(mt_rand(0, 0x7fffffff));
987 }
988 print "<li>Warning: \$wgProxyKey is insecure</li>\n";
989 }
990
991 # Add slashes to strings for double quoting
992 $slconf = array_map( "escapePhpString", get_object_vars( $conf ) );
993 if( $conf->License == 'gfdl' ) {
994 # Needs literal string interpolation for the current style path
995 $slconf['RightsIcon'] = $conf->RightsIcon;
996 }
997
998 $sep = (DIRECTORY_SEPARATOR == "\\") ? ";" : ":";
999 return "
1000 # This file was automatically generated by the MediaWiki installer.
1001 # If you make manual changes, please keep track in case you need to
1002 # recreate them later.
1003
1004 \$IP = \"{$slconf['IP']}\";
1005 ini_set( \"include_path\", \".$sep\$IP$sep\$IP/includes$sep\$IP/languages\" );
1006 require_once( \"includes/DefaultSettings.php\" );
1007
1008 # If PHP's memory limit is very low, some operations may fail.
1009 " . ($conf->raiseMemory ? '' : '# ' ) . "ini_set( 'memory_limit', '20M' );" . "
1010
1011 if ( \$wgCommandLineMode ) {
1012 if ( isset( \$_SERVER ) && array_key_exists( 'REQUEST_METHOD', \$_SERVER ) ) {
1013 die( \"This script must be run from the command line\\n\" );
1014 }
1015 } elseif ( empty( \$wgConfiguring ) ) {
1016 ## Compress output if the browser supports it
1017 {$zlib}if( !ini_get( 'zlib.output_compression' ) ) @ob_start( 'ob_gzhandler' );
1018 }
1019
1020 \$wgSitename = \"{$slconf['Sitename']}\";
1021
1022 \$wgScriptPath = \"{$slconf['ScriptPath']}\";
1023 \$wgScript = \"\$wgScriptPath/index.php\";
1024 \$wgRedirectScript = \"\$wgScriptPath/redirect.php\";
1025
1026 ## If using PHP as a CGI module, use the ugly URLs
1027 {$pretty}\$wgArticlePath = \"\$wgScript/\$1\";
1028 {$ugly}\$wgArticlePath = \"\$wgScript?title=\$1\";
1029
1030 \$wgStylePath = \"\$wgScriptPath/skins\";
1031 \$wgStyleDirectory = \"\$IP/skins\";
1032 \$wgLogo = \"\$wgStylePath/common/images/wiki.png\";
1033
1034 \$wgUploadPath = \"\$wgScriptPath/images\";
1035 \$wgUploadDirectory = \"\$IP/images\";
1036
1037 \$wgEnableEmail = $enableemail;
1038 \$wgEnableUserEmail = $enableuseremail;
1039
1040 \$wgEmergencyContact = \"{$slconf['EmergencyContact']}\";
1041 \$wgPasswordSender = \"{$slconf['PasswordSender']}\";
1042
1043 ## For a detailed description of the following switches see
1044 ## http://meta.wikimedia.org/Enotif and http://meta.wikimedia.org/Eauthent
1045 ## There are many more options for fine tuning available see
1046 ## /includes/DefaultSettings.php
1047 ## UPO means: this is also a user preference option
1048 \$wgEmailNotificationForUserTalkPages = $enotifusertalk; # UPO
1049 \$wgEmailNotificationForWatchlistPages = $enotifwatchlist; # UPO
1050 \$wgEmailAuthentication = $eauthent;
1051
1052 \$wgDBserver = \"{$slconf['DBserver']}\";
1053 \$wgDBname = \"{$slconf['DBname']}\";
1054 \$wgDBuser = \"{$slconf['DBuser']}\";
1055 \$wgDBpassword = \"{$slconf['DBpassword']}\";
1056 \$wgDBprefix = \"{$slconf['DBprefix']}\";
1057
1058 ## To allow SQL queries through the wiki's Special:Askaql page,
1059 ## uncomment the next lines. THIS IS VERY INSECURE. If you want
1060 ## to allow semipublic read-only SQL access for your sysops,
1061 ## you should define a MySQL user with limited privileges.
1062 ## See MySQL docs: http://www.mysql.com/doc/en/GRANT.html
1063 #
1064 # \$wgAllowSysopQueries = true;
1065 # \$wgDBsqluser = \"sqluser\";
1066 # \$wgDBsqlpassword = \"sqlpass\";
1067
1068 # If you're on MySQL 3.x, this next line must be FALSE:
1069 \$wgDBmysql4 = \$wgEnablePersistentLC = {$conf->DBmysql4};
1070
1071 ## Shared memory settings
1072 \$wgUseMemCached = $memcached;
1073 \$wgMemCachedServers = $mcservers;
1074 {$turck}\$wgUseTurckShm = function_exists( 'mmcache_get' ) && php_sapi_name() == 'apache';
1075
1076 ## To enable image uploads, make sure the 'images' directory
1077 ## is writable, then uncomment this:
1078 # \$wgDisableUploads = false;
1079 \$wgUseImageResize = {$conf->UseImageResize};
1080 {$magic}\$wgUseImageMagick = true;
1081 {$magic}\$wgImageMagickConvertCommand = \"{$convert}\";
1082
1083 ## If you have the appropriate support software installed
1084 ## you can enable inline LaTeX equations:
1085 # \$wgUseTeX = true;
1086 \$wgMathPath = \"{\$wgUploadPath}/math\";
1087 \$wgMathDirectory = \"{\$wgUploadDirectory}/math\";
1088 \$wgTmpDirectory = \"{\$wgUploadDirectory}/tmp\";
1089
1090 \$wgLocalInterwiki = \$wgSitename;
1091
1092 \$wgLanguageCode = \"{$slconf['LanguageCode']}\";
1093 \$wgUseLatin1 = " . ($conf->Latin1 ? 'true' : 'false') . ";\n
1094
1095 \$wgProxyKey = \"$proxyKey\";
1096
1097 ## Default skin: you can change the default skin. Use the internal symbolic
1098 ## names, ie 'standard', 'nostalgia', 'cologneblue', 'monobook':
1099 # \$wgDefaultSkin = 'monobook';
1100
1101 ## For attaching licensing metadata to pages, and displaying an
1102 ## appropriate copyright notice / icon. GNU Free Documentation
1103 ## License and Creative Commons licenses are supported so far.
1104 {$rights}\$wgEnableCreativeCommonsRdf = true;
1105 \$wgRightsPage = \"\"; # Set to the title of a wiki page that describes your license/copyright
1106 \$wgRightsUrl = \"{$slconf['RightsUrl']}\";
1107 \$wgRightsText = \"{$slconf['RightsText']}\";
1108 \$wgRightsIcon = \"{$slconf['RightsIcon']}\";
1109 # \$wgRightsCode = \"{$slconf['RightsCode']}\"; # Not yet used
1110 ";
1111 }
1112
1113 function dieout( $text ) {
1114 die( $text . "\n\n</body>\n</html>" );
1115 }
1116
1117 function importVar( &$var, $name, $default = "" ) {
1118 if( isset( $var[$name] ) ) {
1119 $retval = $var[$name];
1120 if ( get_magic_quotes_gpc() ) {
1121 $retval = stripslashes( $retval );
1122 }
1123 } else {
1124 $retval = $default;
1125 }
1126 return $retval;
1127 }
1128
1129 function importPost( $name, $default = "" ) {
1130 return importVar( $_POST, $name, $default );
1131 }
1132
1133 function importRequest( $name, $default = "" ) {
1134 return importVar( $_REQUEST, $name, $default );
1135 }
1136
1137 function aField( &$conf, $field, $text, $type = "", $value = "" ) {
1138 if( $type != "" ) {
1139 $xtype = "type=\"$type\"";
1140 } else {
1141 $xtype = "";
1142 }
1143
1144 if(!(isset($id)) or ($id == "") ) $id = $field;
1145 $nolabel = ($type == "radio") || ($type == "hidden");
1146 if( $nolabel ) {
1147 echo "\t\t<label>";
1148 } else {
1149 echo "\t\t<label class='column' for=\"$id\">$text</label>\n";
1150 }
1151
1152 if( $type == "radio" && $value == $conf->$field ) {
1153 $checked = "checked='checked'";
1154 } else {
1155 $checked = "";
1156 }
1157 echo "\t\t<input $xtype name=\"$field\" id=\"$id\" $checked value=\"";
1158 if( $type == "radio" ) {
1159 echo htmlspecialchars( $value );
1160 } else {
1161 echo htmlspecialchars( $conf->$field );
1162 }
1163 echo "\" />\n";
1164 if( $nolabel ) {
1165 echo " $text</label>\n";
1166 }
1167
1168 global $errs;
1169 if(isset($errs[$field])) echo "<span class='error'>" . $errs[$field] . "</span>\n";
1170 }
1171
1172 function getLanguageList() {
1173 global $wgLanguageNames;
1174 if( !isset( $wgLanguageNames ) ) {
1175 $wgContLanguageCode = "xxx";
1176 function wfLocalUrl( $x ) { return $x; }
1177 function wfLocalUrlE( $x ) { return $x; }
1178 require_once( "../languages/Names.php" );
1179 }
1180
1181 $codes = array();
1182 $latin1 = array( "da", "de", "en", "es", "fr", "nl", "sv" );
1183
1184 $d = opendir( "../languages" );
1185 while( false !== ($f = readdir( $d ) ) ) {
1186 if( preg_match( '/Language([A-Z][a-z_]+)\.php$/', $f, $m ) ) {
1187 $code = str_replace( '_', '-', strtolower( $m[1] ) );
1188 if( isset( $wgLanguageNames[$code] ) ) {
1189 $name = $code . ' - ' . $wgLanguageNames[$code];
1190 } else {
1191 $name = $code;
1192 }
1193 if( in_array( $code, $latin1 ) ) {
1194 $codes[$code] = $name . " - Unicode";
1195 $codes[$code.'-latin1'] = $name . " - Latin-1";
1196 } else {
1197 $codes[$code] = $name;
1198 }
1199 }
1200 }
1201 closedir( $d );
1202 ksort( $codes );
1203 return $codes;
1204 }
1205
1206 # Test a memcached server
1207 function testMemcachedServer( $server ) {
1208 $hostport = explode(":", $server);
1209 $errstr = false;
1210 $fp = false;
1211 if ( !function_exists( 'fsockopen' ) ) {
1212 $errstr = "Can't connect to memcached, fsockopen() not present";
1213 }
1214 if ( !$errstr && count( $hostport ) != 2 ) {
1215 $errstr = 'Please specify host and port';
1216 var_dump( $hostport );
1217 }
1218 if ( !$errstr ) {
1219 list( $host, $port ) = $hostport;
1220 $errno = 0;
1221 $fsockerr = '';
1222
1223 $fp = @fsockopen( $host, $port, $errno, $fsockerr, 1.0 );
1224 if ( $fp === false ) {
1225 $errstr = "Cannot connect to memcached on $host:$port : $fsockerr";
1226 }
1227 }
1228 if ( !$errstr ) {
1229 $command = "version\r\n";
1230 $bytes = fwrite( $fp, $command );
1231 if ( $bytes != strlen( $command ) ) {
1232 $errstr = "Cannot write to memcached socket on $host:$port";
1233 }
1234 }
1235 if ( !$errstr ) {
1236 $expected = "VERSION ";
1237 $response = fread( $fp, strlen( $expected ) );
1238 if ( $response != $expected ) {
1239 $errstr = "Didn't get correct memcached response from $host:$port";
1240 }
1241 }
1242 if ( $fp ) {
1243 fclose( $fp );
1244 }
1245 if ( !$errstr ) {
1246 echo "<li>Connected to memcached on $host:$port successfully";
1247 }
1248 return $errstr;
1249 }
1250 ?>
1251
1252 </body>
1253 </html>